Dvouradkovy caption v Buttonu

Otázka od: LUKES Vaclav

13. 7. 2004 9:23

Ahoj,

poradite mi prosim ?
Rad bych mel klasicky button, ktery by mel v Caption dva radky.

Diky

Vasek

Odpovedá: Petr Brant

13. 7. 2004 9:28

function SetButtonMultiline(Button: TButton): Boolean;
var
Style: DWORD;
begin
Style := GetWindowLong(Button.Handle, GWL_STYLE);
SetLastError(0);
SetWindowLong(Button.Handle, GWL_STYLE, Style or BS_MULTILINE);
Result := (GetLastError = 0);
if Result then Button.Repaint;
end;

SendByMailBtn.Caption:='Odeslat'+#13#10+'e-mailem';
SetButtonMultiline(SendByMailBtn);

Zdravim

RNDr. Petr Brant [brant@dcomm.cz]
http://web.redbox.cz/petr.brant <http://web.redbox.cz/petr.brant>

> Rad bych mel klasicky button, ktery by mel v Caption dva radky.
>

Odpovedá: Jiri Cincura

13. 7. 2004 10:49

Treba v OnCreate
Button1.Caption := 'Prvni radek'+#13#10+'Druhy radek';

--
Jiri Cincura
e-mail: mailto:jiri@cincura.net; mailto:xcincura@informatics.muni.cz
ICQ: 314711544
web: http://www.cincura.net; http://cincura.net/photo

Odpovedá: Otisk Rene

13. 7. 2004 10:48

function SetMultiLineCaption(Ctrl: TButtonControl): Boolean;
var
  Style: DWord;
begin
  Style := GetWindowLong(Ctrl.Handle, GWL_STYLE);
  SetLastError(0);
  SetWindowLong(Ctrl.Handle, GWL_STYLE, Style or BS_MULTILINE);
  Result := GetLastError = 0;
  if Result then
    Ctrl.Repaint;
end;

Sroub

>Rad bych mel klasicky button, ktery by mel v Caption dva radky.

Odpovedá: Jiri Virt

13. 7. 2004 9:54

zkousel jsi to vubec?

Jirka Virt

> Treba v OnCreate
> Button1.Caption := 'Prvni radek'+#13#10+'Druhy radek';

Odpovedá: LUKES Vaclav

13. 7. 2004 10:03

Tohle"
Button1.Caption := 'Prvni radek'+#13#10+'Druhy radek';
Bylo prvni, co jsem zkousel (v OnShow formu), ale utrel jsem...
Vasek

-----Original Message-----
From: Jiri Virt [mailto:virt@volny.cz]
Sent: Tuesday, July 13, 2004 10:32 AM
To: delphi-l@clexpert.cz
Subject: Re: Dvouradkovy caption v Buttonu
zkousel jsi to vubec?

Jirka Virt
> Treba v OnCreate
> Button1.Caption := 'Prvni radek'+#13#10+'Druhy radek';

Odpovedá: Jiri Sedivec

13. 7. 2004 10:32

Nezkousel si komponty Jedi-VCL... Tam tohle funguje.

----- Original Message -----
From: "LUKES Vaclav" <lukes@ans.cz>
Subject: Re: Dvouradkovy caption v Buttonu

> Tohle"
> Button1.Caption := 'Prvni radek'+#13#10+'Druhy radek';
> Bylo prvni, co jsem zkousel (v OnShow formu), ale utrel jsem...
>
> Vasek

Odpovedá: Petr Vones

13. 7. 2004 10:20

From: "LUKES Vaclav" <lukes@ans.cz>
> Rad bych mel klasicky button, ktery by mel v Caption dva radky.

function SetButtonMultiline(Button: TButton): Boolean;
var
  Style: DWORD;
begin
  Style := GetWindowLong(Button.Handle, GWL_STYLE);
  SetLastError(0);
  SetWindowLong(Button.Handle, GWL_STYLE, Style or BS_MULTILINE);
  Result := (GetLastError = 0);
  if Result then
    Button.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetButtonMultiline(Button1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := '123'#13#10'456';
end;

Petr Vones